home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / C64S25BD.ZIP / TESTDISK.D64 / patch (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1997-02-28  |  2.1 KB  |  72 lines
  1. 0 IFBTHEN230
  2. 1 PRINT"PATCHPROGRAMM: AENDERT ZEICHEN/ZEILE AM
  3. 2 [153]"               BILDSCHIRM BEIM DL-WRITER
  4. 3 PRINT"               (C) N. HEUSLER 8/93
  5. 5 [139][194](44)[178]192[167]10
  6. 6 [153]"FALSCHE ANWENDUNG! BITTE VOR ANWENDUNG
  7. 7 PRINT"DES PATCH-PROGRAMMS EINGEBEN:
  8. 8 [153]"POKE49152,0:POKE44,192:POKE56,208:NEW
  9. 9 PRINT"DANN PATCH-PROGRAMM LADEN UND STARTEN.":NEW
  10. 10 RESTORE:PRINT"(KONTROLLE)
  11. 20 [135]X:S[178]S[170]X:H[178]H[170]1:[139]X[179][177][171]1[167]20
  12. 30 [139]H[179][177]95[176]S[179][177]316270[167][144]
  13. 40 [140]
  14. 50 [137]200
  15. 100 J$[178]"0123456789ABCDEF
  16. 102 S=D/4096:PRINTMID$(J$,S+1,1);
  17. 104 D=D-INT(S)*4096
  18. 106 S=D/256:PRINTMID$(J$,S+1,1);
  19. 108 D=D-INT(S)*256
  20. 110 S=D/16:PRINTMID$(J$,S+1,1);
  21. 112 D=D-INT(S)*16
  22. 114 PRINTMID$(J$,D+1,1):RETURN
  23. 150 PRINT"FEHLER: BITTE VERWENDEN SIE NUR DIE
  24. 152 [153]"        ORIGINALVERSION 1.0 DES
  25. 154 PRINT"        DL-WRITERS!
  26. 156 [162]
  27. 200 [153]"BITTE DL-WRITER SYSTEMDISK EINLEGEN.
  28. 210 POKE198,.:WAIT198,1:POKE198,0
  29. 220 B=1:LOAD"DL-WRITER 1.0",8,1
  30. 230 IFPEEK(2051)<>200THEN150
  31. 240 POKE2051,201:REM JAHRESZAHL 1993
  32. 245 PA=28672:PE=49152:PD=PE-PA
  33. 250 CPZ=80:MAXZ=INT(PD/CPZ)-1:IFMAXZ>254THENMAXZ=254
  34. 254 LEZ=PA+MAXZ*CPZ
  35. 260 PRINT"BITTE GEWUENSCHTE NEUE ZAHL DER ZEICHEN
  36. 262 [153]"PRO ZEILE (IM EDITOR) EINGEBEN:
  37. 264 PRINT"MIN. 41, MAX. 253
  38. 266 [133]"ZEICHEN/ZEILE   80CMDCMDCMDCMD";CN:MN[178][181](PD[173]CN)[171]1:[139]MN[177]254[167]MN[178]254
  39. 268 LU[178]PA[170]MN[172]CN
  40. 270 A(0)[178]CPZ:B(0)[178]CN
  41. 272 A(1)[178]CPZ[171]1:B(1)[178]CN[171]1
  42. 274 A(2)[178]CPZ[171]40:B(2)[178]CN[171]40
  43. 276 A(3)[178]CPZ[170]1:B(3)[178]CN[170]1
  44. 278 A(4)[178]CPZ[170]2:B(4)[178]CN[170]2
  45. 280 A(5)[178]CPZ[171]40:B(5)[178]CN[171]40
  46. 282 L1[178][181](LEZ[173]256):L2[178]LEZ[171]256[172]L1
  47. 284 L3[178][181](LU[173]256):L4[178]LU[171]256[172]L3
  48. 286 A(6)[178]L2:B(6)[178]L4
  49. 288 A(7)[178]L1:B(7)[178]L3
  50. 290 A(8)[178]MAXZ[171]24:B(8)[178]MN[171]24
  51. 292 A(9)[178]MAXZ[171]14:B(9)[178]MN[171]14
  52. 294 A(10)[178]MAXZ:B(10)[178]MN
  53. 300 [135]A:[139]A[178][171]1[167]400
  54. 310 [135]B:A[178]A[171]2032
  55. 320 [139][194](A)[179][177]A(B)[167]150
  56. 330 [151]A,B(B)
  57. 340 [137]300
  58. 400 [153]"PATCH AUSGEFUEHRT. WIRD GESPEICHERT.
  59. 402 PRINT"POKE56,160:POKE44,8:P[207]43,1:P[207]45,57:P[207]46,48:CLR
  60. 404 [153]"SAVE"[199](34)"DL-WRITER"[196](CN)[199](34)",8
  61. 406 PRINT"[145][145][145][145][145][145][145][145]"
  62. 408 POKE631,13:POKE632,13:POKE198,2:END
  63. 500 :
  64. 502 REM NIKOLAUS HEUSLER  ZWENGAUERWEG 18  81479 MUENCHEN
  65. 504 :
  66. 1000 DATA4880,0,5059,0,5085,0,5202,1,5204,6,5205,7,5341,0,5358,0,5768,8
  67. 1002 DATA5839,5,5868,5,5893,10,5902,0,5932,0,6079,0,6101,0,6118,0,6146,1
  68. 1004 DATA6193,0,6205,0,6235,1,6251,0,6280,1,6291,0,6301,1,6352,0,6362,1
  69. 1006 DATA6426,1,6477,0,6481,1,6791,0,7273,4,7290,0,7324,3,7332,0,7602,1
  70. 1008 DATA7762,1,7793,0,7804,0,9004,0,9017,0,9031,2,9035,2,9038,2
  71. 1010 DATA9052,9,9099,8,9101,8,-1
  72.